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MODULE DBGEXC (IDENT = 'v04-000") = 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS SOFTWARE is cpa eee UNDER A ‘ae AND MAY or USED AND od a 
t# ONLY IN ACCORDANCE WITH 
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. 
® 
* 
® 
a 
® 
® 
i SOFTWARE * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ® 
ie OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. . 
is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE  * 
we 
® 
t 
® 
® 
a 
® 


'w AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
'® CORPORATION. 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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1 ! WRITTEN BY 
: ! Carol Peters, 05 Oct 1976: Version 01 
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00 § WOLE & aps ~. 
00 ! This module contains DEBUG's ere Exception Handler and associated 
00 : rout ines. DEBUG's Primary Handler is actually located in module 
00 : DBGSTA but that code calls DBGSEXC_HANDLER in this module to do 
4 most ~ ¢ the work of handling Bhs nt exceptions. 
00 ! Revision History 
00 ' R. Title May 1983 Most of the original code was 
00 ‘ removed from this module. 
Ohe : P. Sager Aug 1983 Added a read error count to force 
04 ! DEBUG Se take exit. 
Boe : P. Sager Aug 1983 qeege the Facitity’ test in Bit 15 
; DBGREACERTIONTTS ] FAULT and 
! This is also a bug 
4 : reported by our weer through SPR. 


REQUIRE ‘SRC$:DBGPROLOG.REQ’; 
LIBRARY *LIB$:DBGGEN.L52°; 
FORWARD ROUTINE 

DBGSCREATE VIRTUAL KEYBOARD, 
DBGSCOMMAND _P +: ae :NOVALUE, 


DBGSEXC 
DBGSEXCEPT 1ON 1§ FAULT, 
DBGSPUTMSG : ROVALUE; 
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Initialize keypad input 

accep ts a command from the user 

Mandl es OG BUG | set oF opceps ten conditions 
If exception is fau true 

Checks S cucent ign _ “before calling 
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seh | ROUTIN 
DBGSINIT_STEP : NOV ' Reset step je what is 
DBGSKEY_INITIALIZE: NOVALUE, i Keypad tia teat on 
DBGSSET_STP_LVL : NOV s Needed at 


$$ 
DeGSREL MENON! : NOVALUE, 
DBGSGET"MEMOR 
DBGSOUT MESSAGE : NOVALUE, 


SOSOeTON TROL NOVALUE, 


i Releases ese istordge 
' Allocates free sto orage 
' We we» ote cootureay ptor message 


i New debugger control routine 
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DBGSCIS_A ' Add a 
DBGSCIS ' Remove a tink me 7? cis 
DBGSF INAL_H ' Call frame exception handler 
DBGSSCR “GENERATE SCREEN: NOVALUE , i Generate all automatic screen displays 
DBGSSCR-OUTPUT_SCREEN: NOVALUE, ' Output Screen oreolers to termina 
DBGSEXCEPTION_RANDL ' New Event exception andler 
DBGSACTIVATE EVENTS : NOVALUE, ' Activate e 
SMGSCREATE_KEY L ' Keypad Initiotizetton routine 
SMGSCREATE VIRTUAL KEYBOARD, ! Keyped raceios teet ten routine 
SMGSREAD_ COMP NE, Keypad input 
SYSSPUTMSG: ADDRESSING. MODE(GENERAL):! System output message routine 
—— 
GB_KEYPAD ~—— BYTE, ! TRUE if keypad input is enabled 


DBG 

DBGSGL “KEYBOARD 1 
DBG$GB_L UAGE: Bite. ! Language setting 
DBGSG" -Key? 


LE_ID 
DBG Four: VEC FORE. BYTE), ! Current OUTPUT configuration 
DBGS$GL “EXITS 


us ' Last known user error status 
DBGS$GL NERS. MaoeKe Sete) "INPUT ' 
DBGSGL~ OUTPRAB: socket ted, 


DEG$GL-LOGRAB: BLOCKL, ay e 

DBGSGL_LOG ° ! Ptr to log filespec 
DBGSGL_-READERR_CNT, ' Read error count 

DBGSGL_SCRE ' Set to TRUE if screen mode is active 


EN_AOD 
DBGSGL-CISHEAD: REF CISSLINK i 
DBGS$GV~ CONTROL : DEGSCONTROL FLAGS; | DEBUG control bits 


! Declare a global which is used to s e address of the exit handler 
: routine declared by SMGSCREATE VIRTUAL °c EYBOARD. 


Head of command input stream 


LOBAL 
DBGSGL. SMG_EXIT_HANDLER : INITIAL(O); 


' Declare an own variable which says whether keypad initialization 
has been done yet. 


KEYPAD_INITIALIZATION_DONE: INITIAL(O); 


a LITERAL 
SMGS$_EOF ; ! End-of-file code 


MACRO 
: INP_READ_ERROR signals any RMS error encountered when reading input 


INP_READ_ERROR = 
BEGIN 
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DBGEX 1b-se -1984 01:16:29 -VAX=11 Bliss-32 v4.0-742 Pa 4 
yO. 000 12-8 08-13be 93:18:82 DISKSVMSMASTER: LDEBUG.SACIDBGEXC.B32:1> (3) 
; GLOBAL ROUTINE DBGSCREATE_VIRTUAL_KEYBOARD = . 
FUNCTION 


1 

' 

' This routine initializes the keypad input data Structures. 
' The routine is ayse a cover routine for the RTL routine 

' SMGSCREATE_VIRTUAL_KEYBOARD. This initialization routine 

: s called once from DBGSCOMMAND_PROC, the first time we 

! get input after mode has been set to ‘KEYPAD’’. The routine 
: s called again from the exit handler in DBGSTART. The 

: reason for this is that the keypad routines declare an exit 
: handler that disables keypad input, and we need to re-enable 
' t from our exit handler so that keypad input continues to 
work after running to the end of the program. 

' 

i 

1 

i 

i 

‘ 

' 


3 INPUTS | 
; none 
| 
3 OUTPUTS | 
The global variable DBGS$GL_KEYBOARD_ID is set. 
3 A status is returned (STSSR_SUCCESS if all goes well). 
3 BEGIN 
1 OWN 
desblk: VECTOR(4], 
1 dummy, | 
1 Gunnye: 
itlespec: dbgSsta_desc 
forward_link: REF VECTOR(4), 
save_link, 
status; 


: Initialize the block that is passed to the ‘‘declare exit handler’ 
: and “‘cancel exit handler’ system services. 


' 

desbik(0) = 0; 

desbl\k{1) = dummy1; 
desblk § = 1; | 
desblk = dummy2; 


Initialize the file pees that is passed in to the 
SMGSCREATE _VIRTUAL_KEYBOARD routine.— ) 

We supply Ehe file name to open for input - either DBGSINPUT, 
or if that fails, then SYSSINPUT. 


PENIS SSLRIPOS LESS VOT UR ASSASINS SRO O PERO S SES 


t 
; 
f 
f 
f 
f 


ilespec({dsc$b_class] = dsc$k_class_s; 
$3¢ ilespec(dsc$b_dtype) = dsc$k_dtype_t; 
ilespec(dsc$w_length) = 9; 
05 3 ilespec(dsc$a_pointer] = UPLIT BYTE(ZASCII ‘DBGSINPUT'); 


! Declare a temporary exit handler for the purpose of finding out | 
! the most recentiy declared exit handler. We will need to know this 
to discover if SMGSCREATE_VIRTUAL_KEYBOARD set up a new exit handler. 
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$dclexh (desblk = des blk); 
save_link = .desblk(0J; 


13 
DBGEXC 16- 
yO 000 16-$¢ 
Scanexh (desblk = desblk); 
! Call the routine that initializes the keypad input data 


' structures. If this fails with DBGSINPUT as the input device, 
' then call it with SYSSINPUT. 
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atus = smg$create_virtual_keyboard(dbg$gl_keyboard_id, filespec); 
rd »Siatus 


BEGIN 
filespec(dsc$a_pointer] = UPLIT BYTE(ZASCII ‘SYSSINPUT'); 
wa = smg$create_virtual_keyboard(dbg$gl_keyboard_id, filespec); 


! We want to get rid of the exit handler that was declared by 

! SMGSCREATE_VIRTUAL_KEYBOARD, if indeed it declared one. 

! We first declare a temporary exit handler, 

' so we can pick up the address of the most recent exit handler 
from the forward Link. If this address is different from the 
' 
' 
1 
i] 


WAAR PORORORUPONONUN) 


WN OC VDONOUSWND—"OVDOONOUILS Ww 


! one in SAVE_LINK which we determined before the call to 

' the SMG routine, then the SMG routine set up a new handler. 

! In that case, we get rid of the handler here. We save the 

i handler routine so we can call it ourselves when DEBUG exits. 


$Sdclexh (desblk = desblk); 
forward_link = .desblk(0); 
Scanexh (desblk = desblk); 
Cigg Oreane,, 5m NEQ .save_Link 


BEGIN 
dbg$gl png, or it hendlor = .forward_link(1); 
$Scanexh (desblk'= .forward_link); 
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RETURN .status; 
END; 


~ 


-TITLE DBGEXC 
-IDENT \V04-000\ 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


60000 P.AAA: .ASCII \DBGSINPUT\ : 
0009 P.AAB: .ASCII \SYSSINPUT\ : 


-PSECT DBGSOWN,NOEXE, PIC,2 
00000000 00000 KEYPAD_INITIALIZATION_DONE : 
o08%e DESBLK: .BLKB 16 
0014 DUMMY1: .BLKB 4 
0018 DUMMY2: .BLKB 4 
.PSECT DBGSGLOBAL,NOEXE, PIC,2 


00000000 00000 DBGSGL_SMG_EXIT_HANDLER: : 


D 13 
16-Sep-1984 01:16:29  VAX-11 8B 
14-5e ep-1984 3:18:82 D1 SkSVMGA 

.LONG 0 
TEP, DBGS 
RY, DBG 
L, DBGSCIS 
VE, 0BG 
ERAT 


TABL 
IRTUAL- 


MGS$R get 
eEXTRN SySsputh tHSG DBG <6. 
-EXTRN DBGSGL -KEYBOARD 
-EXTRN DBG$GB-LANGU 

-EXTRN DBGS$GL-KEY_ AE 


fis 


-EXTRN DBGSGL-SCR 


~EXTRN 5 EOF cn SYS$ 
SEXTRN Svs Ht 


O3FC 00000 ENTRY DBGSCREATE VIRTUAL. 
59 000000006 00 $e 89008 MOVAB Sadeckeate WIRTUAL 
38 000000006 00 000 MOVAB DBGSGL_KEY EYBOA 
57 000000006 00 of 00010 MOVAB SYSSDCCEXH, 
56 000000006 00 9€ 90017 MOVAB SYSSCANEXH, aH 
35 00000000' ai 3 OO1E nOVA D ‘ 
8 D4 $00 8 CLRL —dDESBLK 
as 10 AS 9E 00 A MOVAB DUMMY1 DES LK+4 
AS 01 00 0002F MOVL #1, DgSBL BLK 
AS 14 AS 9E 000 MOVAB DUMMY ESBLK+12 
01060009 8F DD 000 PUSHL #1769472 
AE 00000000' ff i ; ROVAB P.AAA, FILESPEC+4 
67 01 F 4 CALLS SYSSDCLEXH 
54 2 v0 48 ROVE 4 Efex’ SAVE_LINK 
66 ie i FB CALLS Hl. SYSSCANEXH 
9 F 09 CALLS as > SMGSEREATE _VIRT 
3 " 09 A MOV Ws 
i 000000 F SF 63 ROVA stvis, 18 FILESPEC+4 
att fF BB PUSHR #°M<RB.SP> 
69 é FB 6C CALLS 2. § “sna CREATE _VIRT 
3 D oF MOV 


E_SC 
T_SCREEN 

ANDLER 
EVENTS 
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KEY_INITIALIZE 

SGET_MEMORY 
ADD 

SP ThAL _HANDL 

ace N 


E 
KEYBOARD 
KEYPAD_ INPUT 


eEXTRN peGse8_ DEF-OUT, BaescL EXIT_STATUS 
-EXTRN DBGSGL_INPRAB, DBGSGL_OUTPRAS 
-EXTRN DBGSGL~ “hoeree DBGSGL_ LOG_BUF 


EN MODE 
eEXTRN peeseL “CISHEAD, es pecsev. CONTROL 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


KEYBOARD, Save R2,R3,R4,- 
a) eee Ro 


UAL _KE YBOARD 


UAL KEYBOARD 
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; Routine Size: 


$3 
5 
00000000" EF 
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4B. 


14-Sep-1 

me eu 

ge pS oonr7 

BF oF O0rF 

ie 
eat: 

1 FB 000 

tie 


149 bytes, Routine Base: DBGSCODE + 0000 


Be 12318: : 


PUSHL 
C 


is 


VAX-11 
DISK$V nen 


SYSSDCLEXH 


$-32 V 


LK, FORWARD LINK 


SYSSCANEXH 
FomWARD. LINK, SAVE_LINK 


4(FORWARD_LINK), 
FORWARD LINK 


st tard 


SYSSEANE Xs 


DBGSGL_SMG_EXIT_HANDLER 


TER: CDE peauG. hc I08GEXC.832. ae 


SUS ALERS Seer 
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GLOBAL ROUTINE DBGSCOMMAND_PROC : NOVALUE = 


! FUNCTIONAL DESCRIPTION: 
: Accepts a ae Cposs tety multiple through the use of 
continuation lines) command sequence from the user at DEBUG 
command level. If the argument buffer_desc holds a value other 
than a zero, then the command comes from this buffer. 
Otherwise a command is read from the input device. 


This routine declares an exception vector. Exceptions 


$s routine is called aga 
caused by user typing errors. 


If the command read from the device INPUT is interpreted by 
RMS as EOF, or any other nonsuccessful return from RMS is seen 
then set the exit flag, cancel the command taking flag, and re 


FORMAL PARAMETERS: 
None 


by user_proc. They are generally 


IMPLICIT INPUTS: 
The name of the DEBUG command level exception handler that is 
declared within the context of this routine. 


The fact that if the DBG$_L_BPT_PC field in the runframe 
has a non-zero value then must be the address 

of a qongerery” breakpoint which DEBUG set to implement 
step /OVER. 


IMPLICIT OUTPUTS: 
none 


ROUTINE VALUE: 
novalue 


SIDE EFFECTS: 
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: The parser is called with the contents of the input buffer. 


BEGIN 
BUILTIN 
FP; 


LITERAL 
NULL_BYTE_LOC = 1; 


BIND 
PMT_STRING_1 


= 

( a | 
PMT_SIZE_1 = 

ZASCI 

PMT_STRING SUP 
PMT 126 30P : 

= 

THASCI 
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sayeuseree from this point generally cause an unwind, and then 
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turn, 


*DBG>")), 
*DBG>")), 
*SDBG>")), 
*SDBG>")), 
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18-50 =1984 01:16:29  VAX©11 Bliss-32_v4.0-762 2 9 
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? PAT.STRING 2 = UPLIT BYTE 
: SCL] XSTRINGCECHAR(CARRIAGE RET), RCHAR(LINEFEED), *_*)), 
PMT_SIZE_2 = SCHARCOUNT 
‘ THASCIT XSTRING(ZCHAR(CARRIAGE_RET), ZCHAR(LINEFEED), '_")); 
LOCAL 


HAPTR 
ALPHAVECTOR: VECTORC150,BYTE), 
Ei loseee s DBGSSTG_DESC, 


LIN ! Flag set when we have a command Line 
INPRAB”: REF $RAB ECL, ' Record Access Block (RAB) for input 
INPUT_BUFFER: VECTOR i¢ 


ommand aneut buffer 
NO_OF_INP_CHARS + ZUPVAL, BYTE), ! 
INP_LENGTH, ! Input Line Length 


NGTH 
MUST_UPDATE_SCREEN, _! Flag set to TRUE if screen displays 
! must be updated before read 


r 
PPA Ee £ EE EE EE 


DONA VES WN "OO CONOUE UT 


NBUF: VECTORCTTY OUT WIDTH BYTE], ! 

NEW_POINTER: REF-VECTORC BYTE), ! Pointer to current buffer 

OLD POINTER, ! Pointer to previous buffer 

COUNT, ! Current character count 

PROMPT _STG_DESC: DBGSSTG_DESC, ! String descriptor for gronet. 
Fe tah F ! Status returned by $GET operation 
61 STG_DESC: DBGS$STG_DESC, ! String descriptor for nerped input 
$e STOP_FLAG; ! Flag set if Control-Y DEBUG was done 


FS SSS ne an aeadtiece 
VFN —O OONOUE WN OOO NOU Sw O 


Enable a condition handler as described above. 
FP = DBGSFINAL_HANDL; 


: Reset the level in the STP type structure so that we forget about 
: any kind of “‘‘override’’ type stepping we may have been doing. 


DBGSINIT STEP (OVERRIDE STEP, USER_DEF_STEP); 
DBGSSET_STP_LVL (USER_DEF_STEP); 


! Also set the Update-Screen flag to indicate whether we should update the 
! contents of the terminal screen. Screen updating is done only if we are 
} in screen mode. 


SS{SVSRNISSELS SS 


RRRRRKRLERRLKLKRLLKLLKLESLLLELLRELRRKRRRLE 


w PUPS SSI 


§ MUST_UPDATE_SCREEN = .DBGSGL_SCREEN_MODE; 
5 : See whether we need to initialize the keypad. 
IF .DBGSGB_KEYPAD_INPUT AND 
Got -KEYPAD_INTTIALIZATION_DONE ) 
34 BEGIN 
3 Check that we are on a V4 system (else we cannot use keypad input). 
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ff eoseav_control CdbgSv_control_version_4] 


BEGIN 
status = dbg$create_virtual_keyboard(); 
F .status 


Intialize the key table used in DEF INE/KEY. 


status! = smg$create_ key. tabje(dbgSgl. key_table_id); 
1F «ROT -Status) OR (NOT”.status1 


Sbasob. keypad_input = FALSE; 


! This is an information message (so we do not get signalled 
out of this routine). 


SIGNAL (ab $_noke 
END: wetSeus ype: .Status? ELSE -Status)); 


SRERES ISS 


54 He 
ZATI _DONE = TRUE; 


DBGSKEY_INI Hy L 
Alga TNITIALI 


ELSE 


! Not a version 4 system - set keypad mode back to false 
! and 34 nal an informational informing the user what is 
nee ng. 


VERRAN LESES 


ob ~ b_keypad_input = FALSE; 
+4 saith heres SSupndushs 


PIPPI WII WII IIR IPUPINPINININININUE BE WWW BB BB BM RUE BRR RE PU 


99 END; 
400 
401 ' If we have re-entered DEBUG oy means of a “Y, DEBUG sequence then 
40 ! the flag DBGSV_CONTROL_STOP will be set. If this is the case, all 
40 ' command buffers, etc., are to be deleted, and we are to return to 
$88 ; taking commands from the default input device. 
. rey, STOP_FLAG = 
408 tte ~DaGSGV_ CONTROL CDBGSV. CONTROL _STOP) 
4 BEGIN 
410 DBGSGV_CONTROLCDBGSV_CONTROL_STOP] = FALSE 
411 WHILE [DBGSGL_CISHEAD C1S$B _INPUT_TYPE] NEO CIS_DBGSINPUT DO 
ret DBGSCIS_REMOVE (FALSE); 
414 STOP_FLAG = TRUE; 
415 END; 
£19 
418 : Set up the stp ing descriptor that describes the prompt. The prompt is 
$33 : either the SUPERDEBUG prompt ‘’SDBG>"’ or the normal DEBUG prompt G@>"*, 
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GEX 1b-5e -1984 01:16:29 VAX-11 Bi iss-32 v4.0 
vos e000 1e=geb=}38e 93:18:82 
: 421 Shoe Ta e7 e~DEScEDSCSB_ CLASS) = DSCSK_CLASS_S; 
: 4 § PROMPT g1C.DEst Aah ys: = OSCSK RIvre.t: 
: ? ? ? If p86 GV_CONTROLCDBGS$V_CONTROL_SDBG 
; 425 5 BEGIN 
3; 4 § § fiat EU ETT ESS eh he = 7; 
3: 4 PROMPT STG Pat DSCSA_POINTER] = UPLIT BYTE 
; 428 8 (ZASCIT ZSTRING(RCHAR(CARRIAGE_RET), ZCHAR(LINEFEED), 'SDBG>')); 
3; 429 223 END 
3 § 60 
3 431 61 
3; 4 ¢ $¢ BEGIN 
; 4 6 sh EDS SSS at ae edt = 6; 
3; 4 564 PROMPT STG Past DSCSA_POINTER] = UPLIT BYTE 
3 ? 5 30? oe (ZASCIT ZSTRING(ZCHAR(CARRIAGE_RET), ZCHAR(LINEFEED), ‘DBG>')); 
: oh st 
; 439 265 ! Enter the read Loop. Here we loop, reading input from the user's 
: 440 0570 ! terminal (or DBGSINPUT) until we get a complete command line. We 
3 441 0571 ! stay in the loop to collect all continuation Lines until no more 
3 ? b27¢ continuation Lines are present. 
> 464 574 HAVE_A_LINE = FALSE; 
3: 445 bap¢ WHILE ROT .HAVE_A_LINE DO 
3 446 9278 BEGIN 
er are 
3 449 0879 ! If screen mode is set and the user program has getned control since 
; 450 0580 ! the Last time we updated all automatically updated screen dt sp) ays. 
; 451 gee) ! then we update all automatic screen displays at this point. (This is 
3; 45 05 § ! suppressed if the STOP_FLAG is set due to a Control-Y DEBUG.) The 
3; 45 058 ! effect of doing so is fo add CIS_SCREEN entries to the Command Input 
3: 6546 Bege ! Stream. These entries then cause the necessary commands to be exe- 
; rH 0386 cuted below to fill in the contents of these screen displays. 
3; 45 B28 IF .DBGSGL_SCREEN_MODE AND 
3: 458 588 .DBGSGV- CONTROL CDBGS$V_CONTROL_SCREEN] AND 
3; 459 589 (NOT .STOP_FLAG N 
3; 460 5 4 (. DBGSGL_CYSHEADCCIS$B8_INPUT_TYPE] EQL C1IS_DBGSINPUT) 
3: 661 591 3 THEN 
3; 46 236 4 BEGIN 
3; 46 593 4 DBGSGV_CONTROLCDBGSV_CONTROL_SCREEN) = FALSE; 
3 464 594 4 DBGSSCR_GENERATE_SCREEN(O); 
; ree r+ 4 END; 
; rr 298 
3 $68 205 it the head of the command argument List is of type buffer, process 
: 470 i 
3 «471 IF (.DBGSGL_CISHEADCCISSB_INPUT_TYPE]) EQL CIS_INPBUF) OR 
3 47. (. DBGSGL_CISHEADECISSB_INPUT_TYPE) EQL CIS_ACBUF) OR 
3; 47 (. DBGSGL_CISHEADLCISSB_INPUT_TYPE) EQL CIS_IF) OR 
: 674 (. DBGSGL_CISHEADLCISSB_INPUT_TYPE] EQL CIS_REPEAT) OR 
3; 4675 ( DBGSGL_CISHEADLCISSB_INPUT_TYPE) EQL CIS WHILE) OR 
3; (47 (. DBGSGL_CISHEADLCISSB_INPUT_TYPE} EQL CIS_FOR) OR 
; 47 4 (. DBGSGL_CISHEADLCISSB_INPUT_TYPEJ EQL CIS_SCREEN) 
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Fe 
s* 


THEN 
eeeie 
DBGSNCONTROL (.DBGSGL_CISHEAD); 
A eae 


oo 


BUEN SO ODNAUE WN OOO NOU SWN $C ODNOUS W000 


! If ve are reading from the user's terminal (DBGSINPUT in general) 
: or from an indirect command file, set up and do such a read. 


if Bitttemes tt aiedtts a peste Ms EQL CIS_RAB) OR 
— CISSB_INPUT_TYPEJ EQL CIS_DBGSINPUT) 


BEGIN 


: If link is flagged for removal due to RMS problems, do it now. 
if ;,PBGSGL_C1SHEAD CCIS$V_REM_FLAG] 
DBGSCIS_REMOVE (FALSE) 


ee 
BISAE 


S$ 


Otherwise we must collect an entire command Line before callin 
the parser. Enter a loop that collects multiple Lines of inpu 


riittttttttttt ttt 


AAI AI AIR POPOPOPONPURPURD 2 — ss 


ooo 
wr 


Pww eee eee le tie te ote te be be be eal eal al alalalal al al a oF oP oP oP oP oy oY oy oF oY oy oP oP oP oe Pie ee ee Pe 


4 
2 : 
5 i 
5 06 : ceasing only when a Line ends with other than a hyphen (‘'-"'), 
504 06 ! which is the Line continuation character. Buffer the possibly 
302 be multiple lines into free storage. 
507 06 ELSE 
508 063 BEGIN 
509 063 INPRAB = .DBG$GL_CISHEAD CCISSA_INPUT_PTRI; 
510 064 PREV_COUNT = 0; 
511 064 OLD_POINTER = 0; 
2\¢ 064 IF “DBGSGL_CISHEAD CCIS$B_INPUT_TYPE] EQL CIS_DBGSINPUT 
51 064 THEN 
514 Bee BEGIN 
212 a 1 97, OSSE¥ CONTROL LOBSSY CONTROL S806] 
219 beee BEGIN 
518 0648 INPRAB CRABSL_PBF? = PMT_STRING SUP; 
519 0649 INPRAB CRABSB_PSZ) = PMT~SIZE_SOP; 
ns < 
‘ § O35 ELSE 
5 bee BEGIN 
524 54 INPRAB CRABSL_PBF] = PMT_STRING_1; 
2 5 55 INPRAB CRABSB_PSZ) = PMT"SIZE_1; 

$ 28 END; 

59 

1 1 ! If screen mode is active and we have not yet updated the 
236 § ! displays in this call on DBGSCOMMAND_PROC, we do so now. 
H ! This means that the user sees all his screen displays 

! updated just before he is prompted for more input. 
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2 V4.0-742 Page 13. 
SCDEBUG.SRCIDBGEXC.B32:1> (4). 


D 
PROAPT_STG_DESC, 
*#** Note - the fifth parameter (DEFAULT_STATE) is going away from 


BONOUFUN—Cco 
a be i  _) 


SSLESE 


tee SMGSR AD,COMPOSED LINE in this build (according to Steve Lionel, 
s sc 


*#** so th ommented out. If Steve's change does not get in, 


; 5 5 , 

3 006 é IF .MUST_UPDATE acreee AND (NOT .STOP_FLAG) AND 

: 8 g TH (-DBGSGL_CISREAD CISSB_INPUT_TYPE] EQL CIS_DBGSINPUT) 
: §39 BEGIN 

; 40 $3 g MUST_UPDATE_SCREEN = FALSE; 

4 4) 7 DBGSSCR_OUTPUT_SCREEN(); 

: ¢g U END; 

: 544 7 

: 545 75 ! If keypad input is enabled, then we read a Line of input 
; 46 676 i using the RTL routine SMGSREAD_COMPOSED_LINE, which 
: ref U4 handles keypad input. 

; 549 $679 INPRABCRABSW_USZ = NO_OF_INP_CHARS; 

; 550 0680 INPRABCRABSL_UBFJ = INPUT-BUFFER; 

3; 551 sed IF .DBGS$GB aii: INPUT AND 

3 2g ¢ g (. DBGSGC_CISHEADCCIS$B8_INPUT_TYPE] EQL C1IS_DBGS$INPUT) 
: 327 bese & THEN GIN 

: 25 0685 : 

: 37 Oe8? ? Set up a string descriptor for the input Line. 
: 559 $e85 6 §1G_DESCCDSC$B_CLASS] = DSC$K_CLASS_S: 

; 560 0690 6 STG_DESCCDSC$B_DTYPE) = DSCSK-DTYPE_T; 

3 61 0691 6 STG_DESCCDSCS$W_LENGTH) = NO OF_INP_CHARS; 

3 $¢ b69¢ ; STG_DESCCDSCSA_POINTER] = IRPUT_BUFFER; 

: 564 694 

; 565 95 6 ' Call the keypad input routine. 

: 566 06 6 ' Zero the INP_LENGTH variable first because 

; 567 0697 6 ' SMGSREAD_COMPOSED_LINE writes only into the low word, 
: re ge9 ° so we first clear out junk in the high word. 

: 57 9700 6 INP_LENGTH = 0; 

: 57 701 6 STATUS = SMGSREAD_COMPOSED_LINE ( 

: 57 O78 6 DBGS$GL_KEYBOARD_ID 

; ? 70 6 DBGSGL ~“KEY_TABLE_1ID, 

: 57 6 

; 7 6 

: 7 6 

3; of ° 

; 4 

3 6 

3 6 

; 6 

3 6 

é 

: ? 


PUPP PUPP DV DV PVDV LPI DPVUDVPUPVILPUSIVDUDVIVSIUSUSIIUSDVSIUSTST SUSE STS SSIS SITIOS 


99 ny eee the ‘0'’ fifth parameter must be put back. 
Bw ., 
3 71 
714 
5 at INP_LENGTH); 
9 ! If we got back a bad status and it was not EOF, 
: A | : then we try reverting to ordinary RMS input. 
5 720 if (NOT .STATUS) 
91 721 AND (.STATUS NEQ RMS$_EOF) 
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Fe 
s* 


3 AND (.STATUS NEQ SMG$_EOF) 
9 THEN 

94 preln 

95 DBGSGB_KEYPAD_INPUT = FALSE; 

4] NAL “r nokeypad, 1, .status); 

9 STATUS = SGETCRAR = -INPRAB) : 

98 NP_LENGTH = . INPRABLRABSW_RSZ); 
600 END 
$09 
$08 ! Keypad input is not enabled or we are reading from an indirect 
604 ! command file. Hence we do read by calling $GET to read a Line 
$0? of input. 
60 ELSE 
608 BEGIN 
609 STATUS = SGETC(RAB = .INPRAB); 
610 INP _LENGTH = , INPRABLRABSW_RSZ); 


! If SGET returned a bad status, try to determine why. If we 
! got an End-of-File, resume taking input from the next Link 
nthe CIS. Any other error is simply signalled. 


IF NOT .STATUS 
THEN 
BEGIN 
! Check for an End-of-File--in this case, resume tohing 
! input from the next Link in the CIS and if none exists, 
! simply exit from DEBUG. 
( 


.STATUS EQL RMS$_EOF) OR 
(STATUS EQL SMG$~EOF) 


PPMP 3 ee 


DONO VUESWN OOO NOUS wh 


Ww 


wn 


BEGIN 
$f 7 POSSE, LISHED CCISS$SB_INPUT_TYPE] EQL CIS_DBGSINPUT 


BEGIN 
DBGSGV pebbe ag fe ot pS bbe EXIT] = TRUE; 


SNS NS SSNS SSN NSS SSS 


Sos. tee eet ty tet epee eat ated Dead et eet ee ey wre tet ah a bend 
WIR @O ODNOA VE WIN 9 ODA NE WIN $0 OD NAME AN (OOONOUS UM 


W098 CD OF CD 0D GD 69 GD 09 GD GDGBD. GD. 0D 9 IDS SIDED DDD DD STITT PP SIP PPA AAA A INNO 
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5 765 DBGSGV-CONTROLCDBG$V_CONTROL_USER) = TRUE; 
76 ' Call the SMG exit handler - this resets the 
$ . . terminal to what it was when we entered. 
640 770 if .DBGSGL_SMG_EXIT_HANDLER NEQ 0 
641 771 THEN 
$46 ve (.DBGSGL_SMG_EXIT_HANDLER) (); 
644 774 SEXIT(CODE = .DBGSGL_EXIT_STATUS OR STSSM_INHIB_MSG); 
645 775 END 
O46 77 
64 77 LSE 
648 778 DBGSCIS_REMOVE (FALSE); 
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8 MRT eo 

one 

3 ° § i , On any other read problem, simply signal the error. 
3 g2e 8 5 § ELSE 

3 228 7 $ BEGIN 

; 65 7 7 DBGS$GL_READERR_CNT = -DOGSEL -READERR_CNT + 1; 

; 658 7 3 7 IF .DBGSGB_KEYPAD_ INPUT 

; 659 789 7 THEN 

; 660 790 7 SIGNAL (DBG$_INPREADERR, 0, .STATUS) 

; 661 791 7 

3 666 0792 7 ELSE 

3; 66 0793 7 INP_READ_ERROR; 

; 664 794 6 END; 

3; 665 795 6 

: 666 796 6 END 

3; 667 0797 6 

; 668 0798 6 

; 669 0799 6 ! There was no read problem--we successfully got the Line. 
; 670 0800 6 ‘ 

; 671 0801 5 ELSE 

; 67 0802 6 

3; 67 0803 6 LINE = TRUE; 

3; 674 0804 3 peestt “READERR.. CNT = 0; 

3; 675 0805 END; 

; 676 C806 5 

s 6r7 0807 4 END; 

3; 678 0808 4 

3 679 0809 ; END; 

; 680 0810 

3; 681 0811 END; ! End of read loop for complete command 
. ce 

> 684 0814 ! We hove now read a complete command Line, including all continuation 
3; 685 0815 Lines. 

3; 686 gals 

3; 687 081 iNPRAB CRABSV_PTA]) = FALSE; 

3; 688 0818 a -DBGSGL_ CISHEADCCIS S$B_INPUT_TYPE] EQL CIS_DBGSINPUT 

3; 689 0819 THEN 

; 690 0820 

3; 691 1 INPRAB pees er} = PMT_STRING_2; 

3; 69 § PRAB CRAB$B_PSZJ = PMT $172 

3; 69 PROMPT_STG_DESCCDOSCS$W_LERGTH)-= 3; 

3 694 824 PROMPT” STG Pat DSCSA_POINTER) = UPLIT BYTE 

3; 695 825 (ZASCIT ZSTRING(RCHAR(CARRIAGE_RET), ZCHAR(LINEFEED), ‘_°)); 
: 899 859 

3 698 ; 8 ' 4f logging is ee copy the fouly read input line to the LOG file 
: 69° 3 ! Not is is onl done we are readi ng commands from DBGSINPUT, 
3 P00 : otherwise DBGSVERIFY "sul Neekes care of things. 

; 70 § IF .DBG$GB_DEF_OUT COUT_LOG) 

; 70 THEN 

3 704 4 4 BEGIN 

3; 705 0835 4 
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> 706 0 § 4 LOCAL 

: ree 0 2 CMT_BUF : VECTOR CNO_OF_INP_CHARS + ZUPVAL + 1, BYTE]; 
; 709 8 § 4 

; 710 0840 4 ! If this is a comment Line, insert a leading ‘'!'’ if there 
: ap te : are less than two already. 

; ig nok 5 IF (. INPUT_BUFFERCO] EQL %C°!") AND (.INPUT_BUFFERC1] NEQ %C°!") 
; 714 0844 4 THEN 

s 715 0845 5 BEGIN 

>; 716 0846 5 CMT_BUFCO) = ZC°!'; 

s 717 pest 2 LENGTH = MIN(.INP_LENGTH, NO_OF_INP_CHARS = 1); 

; 718 0848 INCR K FROM 0 TO .LENGTH - 

: ahs 604 2 CMT_BUF C.K + 1] = .INPUT_BUFFER C.KI; 

: ret 0851 5 DBGS$GL_LOGRAB CRABSL_RBF] = CMT BUF; 

; ise th) 5 DBGSGL_LOGRAB CRABSW_RSZ) = .LENGTH + 1; 

: fe 0855 5 END 

: 724 0854 5 

3 fed 0855 4 

3; fe p828 5 BEGIN 

: ve? 0857 5 DBG$GL_LOGRAB CRABSL_RBF] = INPUT BUFFER; 

3; 728 0858 5 DBGSGL_LOGRAB CRABSW_RSZJ = .INP_CENGTH; 

; a4 0859 4 END; 

Eee 0860 4 

3; 731 0861 4 

3; 732 0862 4 ! We were reading from DBGSINPUT and Logging is enabled, so we 
3; 735 0863 4 ! write the read Line to the Log file. If we get a Record Stream 
: 734 0864 4 ' Active error, we wait and retry the write operation. Any other 
3 739 0865 4 ! error we simply signal. 

; 736 0866 4 ‘ 

3 737 0867 4 STATUS = S$PUT(RAB = DBGS$GL_LOGRAB); 

3; 738 0868 4 IF .STATUS EQL RMS$_RSA 

; 0869 4 THEN 

; 0870 5 BEGIN 

3 0871 5 SWAIT(RAB = DBGSGL_LOGRAB); 

3 Berg 5 STATUS = SPUT (RAB = DBGSGL_LOGRAB); 

; 0875 4 END; 

3 0874 4 

; 0875 4 IF NOT .STATUS THEN LOG_WRITE_ERROR; 

; 0876 ; END; 

: 0877 

3 0878 END; 

; is t83 

: 880 WHILE TRUE DO 

3 te BEGIN 

; $888 LOCAL 7 

: 0885 CONT_LINE; ! Boolean test for end of Line character 
; 8 

3 BBS ' Check for continuation character ‘=" only if the 

3 i 3 } length of the input Line was greater than zero. 

; 90 CONT_LINE = FALSE; 

; 891 IF .INP_LENGTH GTR 0 

; 0892 THEN 
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BEGIN 
If ,INPUT_BUFFERC.INP_LENGTH = 1] EOL ‘=" 


; Assume ‘--" at end of Line in C is post-decrement operator. 
if sba6ses Leseuest NEQ DBGSK_C 
OR (IF rien t 

N cINeUT WBUFFERC. INP_LENGTH = 2) NEQ ‘-' 


BEGIN 
INP_LENGTH = TRUE. LENGTH = 1; 


H 4 

§ 4 

; 4 

: 4 

; 4 

5 4 

: ; 

3 5 

: 

3 0906 5 CONT’ LINE = 

; 0907 4 END; 

3 0908 4 

3 0909 3 END; 

3 0910 ; 

3 0911 

3 0912 3 ' Allocate space for this buffer plus all previous buffers. 
: 0913 3 i If the space can be found, write the old and new buffers 
: Bare ; into the new space. 

; 0916 4 NEW_POINTER = DBGSGET_MEMORY((.PREV_COUNT + ke BYTE_LOC + 
3 0917 3 .INP_LENGTH * 3)/4); 
: 0918 3 IF .OLD_POINTER NEQ 0 

3 0919 3 THEN 

5 0920 4 BEGIN 

; 0921 4 CHSMOVE(.PREV_COUNT, .OLD_ POINTER, .NEW_POINTER); 

: $358 4 DBGSREL _MEMORY(. OLD_ POINTER); 

3 09 3 END; 

g 0924 ; 

: 0925 CHSMOVE(.INP_LENGTH , INPUT _BUFFE 

; 0926 HSPLUS(. néw POINTER, .PREV_COUNT)); 
; 0927 PREV_COUNT = .PREV count + .INP_LEN NGTH; 

3 0928 NEW_POINTERC. PREV COUNT) = 0; 

; 0929 OLD-POINTER = .NEQ_ Sten: 

: sa 

3 093 ! See whether this Line ends with a continuation character. If so, get 
3 093 ! another Line, either from $GET or the active input Screen Display Cif 
5 0934 ' there is one). If the $SGET or screen read fails, set the status so 
; ad that DEBUG returns to the CLI. 

3 5 9 if NOT gCONT six hn id EXTTLOOP: 

3 0938 IF .0BG$GB ratte AND 

3; 809 0939 4 (. DBGSGL_ Sai Cisse. INPUT_TYPE] EQL CIS_DBGSINPUT) 

; 810 0940 3 THEN 

: 44 0941 4 BEGIN 

3 \¢ 9% 4 ; 

; Biz ot ? : Set up a string descriptor for the input Line. 

3 ai? 945 4 STG_DESCCDSC$B fh Ass] = = the CLASS_S; 

: 16 946 4 STG_DESCCDSCS$B_DTY CSK“DTYPE-T; 

: 817 0947 4 STG-DESCLDSC$W_LENGTH) = at OF_INP_CHARS; 

; 8 0948 ? STG-DESCCDSCSA_POINTER) = INPUT_BUFFER; 


= 
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14-Sep-1984 
' Call the keypad input routine. 
inp LENGTH 
STATUS = eMGSREAD _COMPOSED bine, 
DBGSGL_KEYBOARD_ID 
pecsct~ KEY_TABLE_10, 
STG_DESC 
PROMPT_STG_DESC, 
Note - the fifth parameter er MAT STATE) is going away from 
“ ay PPUOSED LINE in this buil d (according to Steve Lionel, 


this Ss commented out. If Steve's change does not get in, 
the "0" fiTth parameter must be put back. 
0. 


INP_LENGTH); 
! If we got back a bad status and it was not EOF, 
then we try reverting to ordinary RMS input. 


if (NOT .STATUS) 
AND (.STATUS NEQ RMS$_EOF) 
AND ( ~STATUS NEQ SMGS—EOF) 


BEGIN 

DBGS$GB_KEYPAD_INPUT = FALSE: 
SIGNAL Tdb : gntne nexped. t , »Status); 
STATUS = RA NPRAB); 

Ine LENGTH : TCUNPRABERABSU- r§2); 


END 


BEGIN 
STATUS = SGET(RAB = .INPRA 
INP_LENGTH = “INPRABERABSW R72): 


END; 
if Mol * STATUS 
BEGIN 
DBGSGL_READERR_CNT = - DBGSGL LREADERR_CNT + 1; 
IF ,eGses_ KEYPAD_INPUT 
a N SIGNAL (DBGS_ INPREADERR, 0, .STATUS) 
. INP_READ_ERROR; 


ELSE 
DBGSGL_READERR_CNT = 0; 


' Another write to LOG file, but only if we are taking commands 
from DBGSINPUT. 


if .DBG$GB_DEF_OUTC AND 
(. DBG$GC_CISHEAD eis 5° luput TYPE] EQL CIS_D@GSINPUT) 


4.0=742 Pa 39 
: (DEBUG. SRCIDBGEXC .B32; 1 
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18 
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1007 3 —. 
1008 4 ae 
1009 4 tt: GL_LOGRAB spr tt +44 = iy cPUErEn: 
1010 4 DBGSGL_LOGRAB W_RSZ 3 
1011 4 STATUS = $PUT = DaGSGL Ne pd 
1 \§ 4 IF .STATUS EQL “ANSS_R SA ! Record stream active error 
10135 4 THEN 
1014 BEGIN 
1015 SWAIT(RAB = DBGSGL_LOGRAB) ; ! Wait and retry 
1916 STATUS = SPUT (RAB-= DBGS$GL _LOGRAB) ; 
191 2 END; 
1 i8 4 IF NOT .STATUS THEN LOG_WRITE_ERROR; 
1020 END; 
1021 
10 § END; 
188 
1025 : A complete Line has been collected. Put the just read in 
1026 : buffer at the top of the command input stream. Call the parser with 
1027 ' the address of a ptr ing és descriptor that describes the 
1% : concatenated input string 
1030 DBGSCIS_ADD (.NEW POINTER, .PREV_COUNT, CIS_INPBUF, 0, 0); 
1031 es -DBGSGL_CISHEAD); 
1038 RETU 
1035 1 ENDS 
-PSECT DBGSPLIT,NOWRT, SHR, PIC,O 
5 47 42 4664 OA OD SF} P.AAC: .ASCII <13><10>\DBG>\ 3 
3E 47 42 44 53 OA OD 00018 P.AAD: .ASCII <13><10>\SDBG>\ s 
5F OA OD OODIF P.AAE: .ASCII <13><10>\_\ : 
3E 47 $2 44 53 OA OD O08 P.AAF: .ASCII <13><10>\SDBG>\ 3 
3E 4 42 44 OA OD Bo5 P.AAG: .ASCII <13><10>\DBG>\ $ 
SF OA OD O002F P.AAH: .ASCII <13><10>\_\ ; 
PHT STRING. 1= P.AAC 
PMT_SIZE 1= 6 
PMT-STRIAG SUP= P.AAD 
PMT-SIZE_ SOP= . 
pnt 3 TRING 2= P.AAE 
PMT_SIZE_2= 
eEXTRN SYSSGET, SYSSEXIT 
eEXTRN SYSSPUT, SYSSWAIT 
-PSECT DBGSCODE.NOWRT, SHR, PIC.O 
OFFC 00000 ENTRY aaa Save R2,R3,R4,R5,R6,R7,- =; 0380 
5E FDA SE MOVAB s 
6D 000000006 9E § MOVAB bacs FINAL -HANDL, (FP) : pegs 
0D PUSHL ; 0474 
§ 0D 1 PUSH: H 3 
000000006 00 Fe 1 CALL #2, DBGSINIT_STEP 3 


r- 
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-Sep- 1:16:29 VAX-11 Bliss-32 V4.0-742 p 0 
8opr18he P3188. | MiKdumGhastenccbeauc thczecexc.es2nk* «es 


000000006 99 


1 Pe Beet CAS #1, DBGSSET.STP_LVL ‘ewe 
0 6 0 D ; MOVL  DBGSGL_SCREEN_MODE, MUST_UPDATE_SCREEN ; 482 
6 00909 O9¢ E BLBC G$GB_KEYPAD- INPUT i; 0487 
one 60 rrr” CE BLES KEYPAD INITIAC IZATION. DONE. 68 : bebe 
es sa 12 cf of 3 CALLS #0. DBGSCREATE_VIRTUAL_KEYBOARD ; 7 
13 3 ve BLBC _—s STATUS, : 0498 
ocean Be CAS. #1. SHOSEREATEC KEY. TABLE hewee 
ssoneggy 03 9 ; p 37 BLBC = STATUS, 1 et, ; 0503 
TE sooo000e 3) $e SONS as, MBS SATUS ts Focal 
04 33 9 0088 ; BLBC = STATUS- 5 : : 939s 
: Dp 0066 PUSHL TATUS{ ; 
g DD 006A gs: PUSHL STATUS : 
1 0D 0006C 5$: PUSHL : 0511. 
00028763 4 DD O06E PUSHL #165731 : | 
000000006 08 FB 00074 CALLS #3, LIBSSIGNAL ; 
00000006 00 0 FB 0078 4$: CALLS #0, DBGSKEY_ INITIALIZE > 0515) 
0000000" EF ot bg 0082 ROVE #1, KEYPAD_INITIALIZATION_DONE : 9316 
900000006 90 94 00088 5$: CLRB bacsce KEYPAD_INPUT ; 0526, 
00028778 F DD 00091 PUSHL #165755 : 05 
maneeeet Bot BRRGr oe, EMIS fhapt Bags oe 
21 000000006 00 01 £1 000A0 BBC #1, BBGSGV_CONTROL+1, 9S : $239 
000000006 90 “3 BA OOA8 BICB2 #2. DBGS$GV~CONTROL+1 : 0540. 
0 000000996 00 " OOAF 7$ MOVE DBGSGL_CISREAD, RO ; 0541 
9 be Song OER -(SP) : 0542 | 
000000006 00 01 Fe ae CALLS ai, DBGS$C1S_REMOVE : | 
: v #1, STOP_FLAG > 0544. 
00A6 22 010€ 4 Mi ite: oF: nov 4210, PROMPT STG DESC+2 ; 055¢ 
v0 oownssee HE a Be 
A e ; 
00A8 CE 00000000' EF ee abet ROVAB PAF. PROMPT_STG_DESC+4 ; 335 
10$:  MOVW #6, PROMPT STG _DESC > 056 
Boas £€ 00000000" FF oe OED MOVAB P.AAG, PROMPT_STG_DESC+4 : 0964 
4 D F6.11$: CLRL  HAVE_A_LINE > 0576 | 
03 m 59 ors 128: BLBC HAVE-A-LINE, 13$ ; 0575 | 
: REEN MODE, 14$ > 0587 
verre FH HF BE eT 4 
$6 000000096 5 11 MOVL BGSGL_CISHEAD, RO ; $890 | 
02 90 33 Sorta gues fag 
000000006 00 re aA H 1 ¢B2 #8, DBGSGV_CONTROL +1 ; 0595 
0000 FB 001 CALLS #1, DBGSSCR_GENERATE_SCREEN ; 
reeranantee 9 000000006 8 8 135 14$:  MOVL DBGSGL_CISHEAD, R1 > 0601 


LLL LLL LL! CL Ca tt tail tll - — 


F 14 
16*Sep-1984 01:16:29  VAX=11 Bliss-32 v4.0-742 Page 21 
18-308-1 382 93:18:82 D1ISKSVMSMAS TER: CDEBUG. SRCIDBGEXC.B32: 1" (3 
02 Al 9A 001 MOVZBL 2(R1), RO ; 
39 30 3 1 ; CMPB . RO we : 
1 134 BEQL 15§ : 
’ et ca ee 
06 50 91 00141 CMPB RO 26 + 0603) 
14 1 144 Bea. 4=s«d5$ : 
04 0 9 146 CMPB RO ry + 0604 
7 it 14 BeaL «=s«éd+5$ : 
05 0 91 00148 CMPB RO as + 0605 | 
A 13 0014 BEQL «6-158 : | 
07 : 94 1 CMPB RO a7 + 0606 
08 93 i Paes 2s ag + 0607 
g 12 001 BNEQ 16$ ; 
1 pp 15a 158 PUSHL 1 ; 0610) 
047F 31 0015¢ BRW 60$ ; 
52 000000096 0 0 15F 168:  MOVL  DBGSGL_CISHEAD, R2 > 0618 | 
01 02 A2 91 00166 CMPB (R2), #1 : 
05 13 0016A BEQL F 
02 Ag 95 OO16C TST (R2) : 0619) 
87 1 O16F BNEQ ; 
03 12 A2 ‘ 0171 17$:  BLBC 18(R2), 18$ + 0626 
one 31 00175 BRW a 
57 04 A2 0000178 188:  MOVL 4(R2). INPRAB > 0639) 
36 D4 0017C CLRL —- PREV_COUNT + 0640 | 
: D4 0017 CLRL  OLD_POINTER : 0641 
5 4 001 CLAL R : 2| 
02 A2 95 001 TST g(R2) : 
24 12 91 Q 0$ ; 
0 06 001 INCL RO : 
OE 000000006 00 01 a 0189 BBC yy DBGSGV_CONTROL 19$ > 0645 
30 A7 00000000" EF 3 0191 MOVAB pat _STRING SUP, 48(INPRAB) ; 0648 
A? 7 0199 MOVB «#7, "52 INPRAB) 3 0649 
C 11 00190 BRB 208 > 0645 
30 A7 00000000" EF 9E 0019F 19$:  MOVAB PAT _STRING 1, 48(INPRAB) > 0654 
4 a? 001A7 MOVB =: #6, "52 ( INPRAB) > 0655 
OF E9 OO1AB 20$:  BLBC = MUST_UPDATE SCREEN, 21$ + 0666 
3 3 D1 AE BLBS § STOPTFLAG, 21$ ; 
0 E9 0018 BLBC~—Es«aRO, 21 ; 9667 
20000096 Pe Eth. SRST RATE SORE cncen Bp 
09 84 «BF 0018D 21$:  movzeBw #1$2 Hatt: Wine + 0679 
+ 
4 A? FEDS 001¢ MOVAB INPUT BUFFER 6CINPRAB) ; 
9000 G ES 001C BLBC DBG$GB_KEYPAO INPUT, 22$ ; 1 
0 G p D01CF MOVL  DBGSGL-CISHEAD, R : 0682 
A 00106 TST (RO) ; 
3¢ 12 001D BNEQ ; ; 
98 CE 01060084 &F 00108 MOVL  $#17694852, STG DESC > 0691 
9c «(CE FEDS CD DOTE MOVAB INPUT BUFFER, STG_DESC+4 > 069 
ge DO1EB CLRL = INP_LENGTH : 
E 0D OO1ED PUSHL p ; 0701 | 
AB CE 9F OOIEF 5 PROMPT _STG_DESC ; 
A F dOIFS PUSHAB STG ; 
F OO1F PUSHAB DBGSGL KEY TABLE_ID ; 
6 F OTF PUSHAB DBGSGL=k YBOARD_TD : 
000000006 00 FB 0020 CALLS #5, SMGSREAD_COMPOSED_LINE : 


14 
-$ep-1984 01:16:29 VAX-11 Bliss-32 V4.0-742 . 
b-ben-1984 93:18:82 DISKSVMSMASTER: LDEBUG.SACIDBGEXC.B32:1" Ri; 


v0o=000 


te 


i $ R088 HO aaSY i orz0 
0001827A F 9 9 , sree Sans: 5938 § oret 
000000006 8F : p 19 cHPL ae #SMG$_EOF 0722) 
000000006 9 94 ; CLRB $DBG$GB_KEYPAD_INPUT : 072 
DD PUSHL STATUS : 0726 
1 OD A PUSHL : | 
00028763 8F OD PUSHL #165731 ; 
caaneese. #8 S388 aos, Mh fhvnngetsom tons 
000000006 00 1 FB CALLS #1, SYSS$GET : | 
9 g p 4 MOVL RO, STATUS : | 
6f 22 A? 3C 0024 MOVZWL 34(INPRAB), INP_LENGTH : 0749 | 
0082 5 9 49 23$: BLBC STATUS, 24$ : 0748 
0001827A BF 39 D4 0 4F 248: CMPL TATUS, #98938 : 0757 
000000006 8F 3 21 00 38 cHPL TATUS, #SMGS_EOF : 0758) 
:  MOVL  DBGSGL_CISHEAD, R > 0761 
50 000000096 09 p 6 61 25$ ROVL BG$¢ CISHE 0 : 0761) 
ZA 12 0268 BNEQ gig : 
000000006 90 0110 8F A8 0026D BISW2 #272, DBGSGV_CONTROL : 0765 
0 00000000' FF 00 00 16 MOVL DBGSGL_ SMG_ERIT_HANDLER, RO : 0770 
60 8 FB O027F CALLS #0, (RO) ; 9772 | 
7E 900000006 00 10000000 i C9 00 B2 26$: B1SL 5 #268433456,_ DBGSGL_EXIT_STATUS, -(SP) + 0774 | 
dD 11 09 38 BRB 31§ : 0761 
7E 04 00297 278: CLRL (SP) : 0778 
000000006 00 oi FB 00 99 CALLS #1, DBGSCIS_REMOVE : 
2 11 002A0 BRB 31§ : 0757 
000000006 00 06 00 Ag 28$: INCL DBGSGL_READERR_CNT : 0787 
13 000000006 00 0 BLBC DBGSGB KEYPAD_INPUT, 29$ : 0788 
39 DD OO2AF PUSHL STATUS : 0790 
E D4 00281 CLRL StSp) : 
00028138 8F DD 00283 PUSHL #164152 ; 
000000006 00 9 FB 0289 CALLS #3, LIBSSIGNAL : 
11 002¢ BRB 31§ : 
50 C A po 02C2 29%: MOVL et ergs fe FAB_PT : 0792 | 
0090 CE 4 Ad 8 C MOVZ2BW 52(FAB_PTRS, MSG_DESC : | 
0094 cE AQ p CC MOVL  44(FABTPTR). MSG-DESC+4 : 
E A? 7D 002d MOVG # 8(INPRAB), -(SP) : 
00 CE 9F 00206 PUSHAB MSG_DESC : 
1 DD OO2DA PUSHL #1 ; 
00021084 8F DD 002d PUSHL #135348 ; 
000000006 00 5 F E CALLS #5, LIBSSIGNAL ; 
9 1 6 E BRB 31§ ; 748 
4 1 oO EB 30$: MOVL #1, HAVE_A_LINE : $0) 
000000006 00 04 OOZEE CLRL § DBGSGL_READERR_CNT ; 
FEO! 31 O02F4 318: BRW 1 ; : 18 
07. «a? A F7 32$: BicB2 s# 7 (INPRAB) : 0817 | 
50 000000996 6 i mOVL aRos _CISHEAD, RO : 0818 | 
03 1 8 BEQL 4$ : 


ee__Q_avvwa..eEE 


—— eee 


14 | 
GEX 16-Sep-1984 01:16:29 VAX=-11 Bliss-32 V4.0-742 P 3 
vitetttd eneeen Fhe P3188? Peek weadetenccheaue Secspecexc.es203%" (ah 
O0OFO 31 4 $2: BRW 44$ : 
30 A7 00000000" EF A 34$ MOVAB PMT_STRING.2, 48(INPRAB) + 0821. 
4 Av ; 12 MOVB 43, 2( INPRAB) : 08 : 
OOAS CE E 1 MOVW #3, PROMPT STG_DESC : 08 
OOA8B CE 90000000" FF E 1B MOVAB P.AAH, PROMPT STG DESC+4 + 0824 | 
€ 000000006 60 ‘ 4 BLBC  DBG$GB_DEF OUT 3 : 08 2 
1 FEDS ¢D 4 0 CMPB NPUT BUFFER, 3 + 084 
21 FEDS i ? 6 CPB NPUT_BUFFER+1, #33 : 
=e E BO 90330 MOVE ANP’ LENGTHY RO : ogee 
00000083 ar $6 D1 3 40 cHPL R “LENG ‘ : 
50 83 rf 9A 00349 MOVZBL He RO : 
51 0 DO 0034D 35$:  MOVL RO, LENGTH : 
50 01 cE 035 MNEGL #1, K : 0848 | 
8 11 0035 BRB 37 : 
OD AE4O FED CD40 90 035 368: MOV8  _—sINPUT_BUFFERCK], CMT_BUF+1CK) > 084 
F4 50 51 F2 00350 37$:  AOBLSS LENGT F 
000000006 go Oc AE H 0361 MOVAB CMT_BUF, DBGSGL_LOGRAB+40 : 085 
000000006 00 i oi al 0 $9 ADDU #1, "LENGTH, DBG3GL_LOGRAB+34 ; 085 
000000006 00 FEDS §= CD 43 0373 38$: | MOVAB  INPUT_BUFFER, DBGS$GL_LOGRAB+40 : 085 
000000006 00 : BO 00 i MOVW  INP_LENGTH, DBGSGL_LOGRAB+34 > 085 
00000006 9F 00383 39$:  PUSHAB DBGSGL_LOGRAB > 086 
000000006 99 1 FB 0389 CALLS #1, SYSS$PUT : 
0 pO 00 30 MOVL RO. STATUS : 
000182DA «BF 39 D1 0 93 cHPL StAtUs. #99034 ; 0868 | 
000000006 00 9F 0039¢ PUSHAB DBGSGL LOGRAB : 0871 
000000006 00 1 €B 00 Mg CALLS #1, SYSSWAIT : | 
000000006 9F 003A PUSHAB DBGSGL LOGRAB : 0872 
000000006 0 a. FF Bear CALLS #1, SYSSPUT $ 
9 : 09 B6 MOVL RO, STATUS ; 
3 £8 00389 40$:  BLBS STATUS, 44$ > 0875 
5 900000006 D0 0038 MOVL § DBGSGLLOGRAB+60, FAB_PTR : 
00000006 ° p 9 cs tstL DBGSGL-LOG_BUF ; 
04 AE 34 Ag 03¢ MOVZBW 52(FAB_PTR), MSG_DESC : 
08 AE Cc A p 3 MOVL  44(FABPTR). MSG~DESC+4 : 
OA 03D BRB 42$ F 
04 AE 5 oA 98 0307 41$: MOVZBW SSrag pre, MSG_DESC ; 
08 AE : A p o¢ MOVL  48(FAB"PTR MSG_DESC+4 : 
7E 000000 06 4) 3 428: nova DBGSGL LOGRAB+ , =(SP) ; 
Of DD OO3EB 438 PUSHL ; . : 
00021000 8F DD ED PUSHL #135376 : 
000000006 00 5 FB O003F CALLS #5, LIBSSIGNAL F | 
A 04 OOSFA 44%: CLRL : 0890 | 
50 0 FC MOVL NP_CENGTH, RO ; 0891 
2 FF BLEG 6$ ; 
2D FED3 co 91 } CAPR NPUT _BUFFER-1CROJ, 045 3 089% | 
07 000000006 of CMPB —-DBGSGB_LANGUAGE, 47 ; 0899 | 
02 4 if 1 CMPL = RO, #2 0900 | 


14 
GE X 1b-5¢ “19 16:29 VAX-11 Bliss-32 v4.0-74 P 4 
Mb ee 060 1 ~3007 1382 93:18:82 DISKSVMSMASTER = (DEBUG. SAC IDBGEXC.B32:1 > Bb 
08 19 4s BLSS 6 45$ ; 
2D FED2 (D4 if 417 CRP INPUT _BUFFER-2CRO3, 065 + 0901. 
° | 
A 5 bo Soca eo Rovt. AT -EENO ne $9905 
50 E p8 4 46%:  ADDL3  INP_LENGTH, PREV_COUNT, RO : 0917) 
7e £0 ybeSe stg be! RO. @(SP) : Bars. 
000000006 ¢. : CALLS #1, DBGSGET MEMORY : | 
0 »D MOVL RO, NEW POINTER : 
8 ist OL POIRTER ; 0918 
68 68 5 mOVES PREV_COUNT, (OLD_POINTER), (NEW_POINTER) : 0921 
B DD 00441 PUSHL  OLD_POINTER + 0922 
000000006 00 1 FB 00443 CALLS #1, “DBGSREL MEMORY ; | 
6648 FEDS = CD 6— 2 4A 47S: NB LLENGTH, © INPUT BUFFER, (PREV_COUNT) = ; 0926 
56 6 go 51 ADDL2 INP_CENGTH, PREV_COUNT + 0927 
6648 94 34 CLRB = (PREV_ COUNT) CNEW- POINTER] ; 0928 
8 2 4 7 MOVL NEW POINTER, OLD_POINTER : 0929 
0 A ‘ SA BLBS CONT LINE, dss : 0937 
A 090090006" 80 25 0066) 48S: BLDC BBESGB_KEYPAD_ INPUT. 698 : 0938 
0 000000006 00 9 tits ; MOVL BOGSGEL _CISHEAD, RO” + 0939 
24 ee pe 
0098 CE 010E0084 Fy 06 047 MOVL  #17694852, STG DESC > 0947) 
009c «CE FEDS CD E 0047 MOVAB INPUT BUFFER, STG_DESC+4 : 0948 | 
2 a B38 
0a8 CE OF ? PUSHAB PROMPT_STG_DESC : 
0A 9F 00488 PUSHAB STG_D ’ : 
0000006 OF af PUSHAB DBGSGL_KEY_TABLE_ID : 
0000006 OF 5 PUSHAB DBGSGL KEYBOARD ID F 
000000006 F ALLS #5, SMGSREAD_COMPOSED_LINE ; 
9 0 D ve RO, STAT : | 
9 E A BLB STATUS, 50$ : 0970 
0001827A =F 3 D4 AB cnPL TATUS, #98938 : ant 
000000006 8F 9 D1 00481 cnPL TATUS, #SMGS_EOF : 0972 | 
000000006 9% OO4BA CLRS —-DBGSGB_KEYPAD_INPUT 0975 
corns RBA RE asre bed 
000000006 00 ; FB OO4CA CALLS +3 LIBSSIGNAL : 
DD 00401 498:  PUSHL  INPRAB > 0984 | 
000000006 99 1 FB D3 CALLS #1, SYSS$GET : 
9 pO O04DA Rov RO) STATUS : | 
3 22 A ¢ Dp MOVZ2WL 34CINPRAB), INP_LENGTH > 0985 | 
. 9006 86 66 OOces PAE’ Baebte “RERDERR. CHT 9990 | 
13 tide Bg EA BLBC -DBGSGB"KEYPAD_INPUT, 518 > 0991 | 
bp F PUSHL STATUS : 0993 | 
E D F CLRL. = SP) : 
00028138 ar DD D04F PUSHL a164152 ; 
000000006 00 3 FB 004FB CALLS #3, LIBSSIGNAL : 


Os 050 


3; Routine Size: 


1510 bytes, 


90 
94 


000000006 


000000006 
000000006 
000000006 
000182DA 


000000006 
000000006 


0090 
0094 


0090 
0094 


000000006 
000000006 


en 
i 


2F 11 
50 C <A? 00 
ae: 
fH ae 
00 . oF 18 
DO 1¢ 
00021084 F Odo if 
0 5 . : 
os SESSGHEE_ BF Fs HEE 
FEBD A 
50 000000006 5 
0 A 4h 
av MS 
00 6 055 
000000006 F 0055 
00 1 FB OOS5SF 
59 0 00 00566 
8F 59 D1 00569 
1D 12 005 
000000006 00 9F 0057 
00 01 FB 0057 
000000006 00 9F 9057F 
00 1 FB 00585 
59 0 oO 0058C 
A8 59 E8 0058F 
50 000000006 00 00 0059 
000000006 00 05 005 
OE 13 0059F 
cE 3 AO 98 005A! 
cE C Ad 00 td 
OC 11 QO5AD 
cE HF AO 98 OOS5AF 
cE 0 A 0 00585 
7E 000000006 0 D 005 
0098 F 005C 
FE 1 bers 
Cc C 
02 dD 005CB 
56 0D ce 
7 es 
000000006 00 DD 00508 
00 1 FB peek 
04 O05E 


Routine Base: DBGSCODE + 0095 


sep} 
-seo- 
=Sep-1 


518: 


PIP 


56$: 


57$: 
58$: 


59$: 


608: 


4 7:16:29 VAX-11 Bliss 
3he 93:18:82 Ua Scsumbnasi 
BRA 53$ 
mov 6 (CINPRAB), FAB_PT 
MOVZBW 52(FAB_PTRS, MSG_D 
VL 44(FAB-PTR), MSG_D 
va 8(INPRAB), =(SP) 
tt tall’: taal 
PUSHL #135348 
CALLS # LIBSSIGNAL 
RB 53§ 
CLRL  DBGSGL_READERR_CNT 


$ 
BLBS 44 $GB_DEF_OUT, 55 
} anette RO 


MO 
PUSHAB DBGSGL LOGRAB 
CALLS #1, SYSS$PUT 
MOVL RO, STATUS 
CMPL TATUS, #99034 


BNEQ 
PUSHAB DBGS$GL_LOGRAB 
CALLS #1, SYS$w 


32 
R 


Vv 
Cd 


4 
E 


20-742 


% 
MOVAB INPUT_BUFFER, DBGSGL_LOGR 
SBGSGL_LOGRAB+34 


TATUS, 54$ 
MOVL § DBGS$GL“LOGRAB+60, FAB_PTR 


TSTL 9656 _L06_BUF 


MOVZBW 52(FAB_PTR), MSG_D 
MOVL = 4 <FABLPTR). MSG_D 


BRB 38 

MOVZBW 53(FAB_PTR), MSG_D 

MOVL  48(FABTPTR), MSo-C 
VG §DBGSGL~LOGRAB+8, ~- 

PUSHAB MSG_DESC 

BRW 4 

CLRQ = = ( SP) 

PUSHL #2 

PUSHL PREV_COUNT 

PUSHL 


NEW. POINTER 
CALLS #5, DBGSCIS_ADD 
PUSHL DBGSGL_CISHEAD 
CALLS #1, DBGSNCONTROL 


ESC 
ESC 
ESC 
ESC 
(SP 


44 


+4 
) 


+40 


0-7 
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DBGEXC 16-Sep-1984 01:16:29 VAX=11 Bliss-32 V4.0-742 P 6 
vOL=000 4 95:18: 4 DISKSVMSMASTER: CDEGUG.SRCIDBGEXC.832:1" BS 


14-Sep-1984 


; 308 19 : } GLOBAL ROUTINE dbgSexc_handler (signal_arg_ptr, mechan_arg_ptr) = 

; 907 8 § 1 ! FUNCTIONAL DESCRIPTION: 

; 908 1 1: Exception enol eer called by the priser vector exception handler, 

; 909 1038 1! which is a MARS routine found in DBGSTART.MAR. The MARS routine 

; 910 1039 1! janedtotety resignals if the user program was not ety Otherwise 

3; 91) 1040 1! it saves the reg sters of the user program and disables ASTs for 

; aig 130) : the time that DEBUG is running. 

; 9146 1908 1! Then it calls this routine, where the exception is analyzed for 

; 915 1044 1! the fype of exception. Breakpoints and trace ae are given 

; 318 1045 1! special handling, which usually erds with control being passed 

; 91 1046 1! to the user. If the breakpoint or trace trap was illegal, then 

; 918 1047 1! the exception is resignaled unless the user has asked for control 
: a ee : : on every exception. 
3 359 1050 1! Some trace traps cause an interim halt that requires some action, 

3 a5¢ 1051 1! but doesn't pass control back to the user. After checking the 

: tt 1926 ! } validity of these trace traps, the value ss$_continue is returned. 

; 35 1054 1! After the exception is analyzed and it is determined that immediate 

; 926 1055 1! res ignel ing or continuing is not desired, the user_proc routine is 

3; 927 1056 1! called. This routine prespes user commands either from prespecified 

; 928 1057 1! action commands from breakpoints, or interactively from the terminal. 

3 369 1058 1! Eventually, a command is given that either causes the user program 

3; 9 1059 1! to continue or DEBUG to exit. If the user program is to continue, 

3 93) 1060 1! the value returned from user_proc is ss$_continue, and that value 

; 836 190) ; is passed back to the MARS handler. 

: 934 1068 ,; If an exception occurs nm DEBUG processing, the exception 

; 932 eee ! H handler is final_handl, not this routine. 

; 937 1206 1 ! FORMAL PARAMETERS: 

; 938 1067 1! signal_arg_ptr = address of block that contains at least four longwords. 
; 939 1068 1! THE PERTINENT WORDS ARE THE EXCEPTION E, THE 

3 940 1069 1! PC AT THE TIME OF THE EXCEPTION, AND THE PSL AT 

3: 941 1070 1! THE TIME OF THE EXCEPTION. THE NAME IS ALWAYS 

; 3e§ 1071 1! THE SECOND LONGWORD, THE PC AND THE PSL THE NEXT 

> 94 107 1: TO LAST AND LAST RESPECTIVELY. 

3; 944 1075 1! mechan_arg_ptr = address of block that contains five longwords. 

3; 945 1074 1! THE PERTINENT WORDS ARE THE SAVED RO AN . 

; 946 1075 1! THEY ARE IN THE FOURTH AND FIFTH LONGWORDS RESPECTIVELY. 
; ot 1976 : : NEITHER IS USED AT THIS TIME. 

3 949 1078 1 ! IMPLICIT INPUTS: 

; 950 1079 1! SOME VARIABLE NUMBER OF ADDITIONAL ARGUMENTS MAY EXIST BETWEEN THE EXCEPTION 
; 951 iat 7! NAME AND THE PC. FLAGS INDICATING THE VALIDITY OF TBITS AND BREAKPOINTS 

; 926 1081 1! ARE REFERENCED. THE FLAG DBGSGB_RESIGNAL CAUSES ILLEGAL EXCEPTIONS TO 

; eer 18 § ! : BE RESIGNALED IF THE FLAG IS SET TO TRUE. 

; 955 19 1 ! IMPLICIT OUTPUTS: 

3 329 3 5 ' : The TBIT in the RUNFRAME PSL may be changed. 

; 958 H's 1 ! ROUTINE VALUE: ; 

: 959 1 3 , ss$_resignal OR ss$_continue FOR RESIGNALING AND CONTINUING 

; 38? 130 ' RESPECTIVELY. 
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18-5 -1984 01:16:29 VAX-11 Bliss<-32 V4.0-742 P 7 
1 ~3e0n 138% 93:18:¢? DISKSVMSMAS TER: DEBUG. SACIDBGEXC.B32:1° (3 


$ 36¢ 1091 1°! SIDE EFFECTS: 

; 96 1 38 7 | ANY NUMBER OF THINGS. 

: 964 1095 1 !-- 
: See 1098 2 BEGIN 

. en: 
: 388 1998 Pt ignal tr: REF VECTOR | 
: signal_arg_ptr : : 
: 38 1099 els sh | 
; (971 1100 LOCAL 

; 376 1101 ummy, 
s P7 11 ¢ string_desc : BLOCK (8,BYTE], 

; 974 11 sig_arg_count; 

3 979 1104 

; 976 see 

3; 977 11 $ ! If the EVENT developer bit is on, call DBGSEXCEPTION_HANDLER 
; 978 110 ! instead of anything else here.... 

; 979 1108 ! with the conversion to the new eventpoint code, just call 

: eae 1198 : the new exception handler here... 
; 98 1111 RETURN DBGSEXCEPTION_HANDLER (.SIGNAL_ARG_PTR, .MECHAN_ARG_PTR); 

3; 1112 «1 END; 


0000 00000 ENTRY DBGSEXC_HANDLER, Save nothing : 1034) 
5E 08 C2 4h SUBL2 #8, SP 3 
7E 04 AC 7D 0000 MOVO $SIGNAL_ARG_PTR, -(SP) : 1911) 
000000006 00 02 FB 00009 CALLS #2, DBGSEXCEPTION_HANDLER : 
04 00010 RET + 1112 


; Routine Size: 17 bytes, Routine Base: DBGSCODE + 0678 


7 


14 


FR 
=—o 


M 
DBGEXC 16-Sep-1984 01:16:29 VAX-11 Bliss-32 V4.0-742 Page 28 
v04-000 1-8ep-19 4 93:18:82 DISKSVMSMASTER : DEBUG. SRC IDBGEXC.B32:1> (6). 
; 985 1113 1 GLOBAL ROUTINE dbg$exception_is_fault (exception) = 
3; 1114 1 Se 
; 98 332 3 
3; 988 1118 1 ! Functional Description: 
; 989 1117 1! 
; 990 1118 1! Given an exception name = the longword which encodes the 
: 991 1119 171! type, etc, of an except ton = codecs if this exception is 
; 99 120 1! the so-called FAULT_EXC type. This is for the PC_TO_LINE 
; 99 i211 1! translation - we have to know if the PC is on the instruction 
: o3¢ i g : which caused the exception, or if it is on the next instruction. 
$ 4 1124 1! The answer to the question is simply whether 
; 99 1125 1! the piven EXC_NAME is in our table of exceptions. The only 
; 998 11 § ,! trickery is that this routine makes sure only to look at 
3; 999 11 1! the part of the longword which encodes the error code - and 
; 1990 i 8 : not at the rest of it since that may change. 
: 1005 1130 1 ! Formal Parameters: 
3; 100 1131 1! 
3: 1004 11 ¢ 1! EXCEPTION = the longword system-defined exception name. 
3; 1005 ii 1! 
3; 1006 1134 1 ! Routine Value: 
3 1007 1135 1! 
: 1008 1136 1! TRUE or FALSE. See above. 
3; 1009 sige . 
3; 1010 1138 1! Side Effects: 
: 1011 1139 1! None. 
: a 1140 1 !<- 
3: 101 1141 1 
3 oie Bb BEGIN MAP exception : BLOCK (CXUPVAL, BYTE]; 
$ 1oig 1183 BIND ! The O-ended List of exception codes. 
3; 1018 1146 exception_list = UPLIT WORD 
3 1019 1147 { SS$_ACCVIO, 
: 1020 1148 SS$_NOTRAN, 
3: 1021 1149 SS$_RADRMOD, 
s 1Os¢ 1150 SS$_ROPRAND, 
: 19s 1151 SS$_OPCDEC, 
3: 1024 1136 SS$_OPCCUS, 
; IOs? 115 S$S$_BREAK 
> 1026 1154 SS$"FLTOVE_F, 
: 1027 1155 SS$_FLTUND_F, 
: 1028 1138 SSS_FLTDIV_F, 
3 1029 11 $S$_TBIT 
: 10 1158 SS$_COMPAT, 
3; 1031 1159 
: 1936 1160 dy: VECTOR (C, WORD]; 
: 103? 1161 
: 1 1166 ! Simply loop thru_the List checking each one, 
; 1035 116 ! ending when the 0 one is encountered. 
: 1938 1164 ! 
: 18 1186 non OO 
: 1039 Ht dO BEGIN LOCAL List entry : BLOCK (CZUPVAL, BYTE); 
1 1169 4 


IF ((List_entry = .exception_list C.i]) EQL 0) 


DBGEX 


O60 


SeSe ee Se Sees as ee teeee 
RAGEERRR ERR 
NO OONOUE wry 


O48C 04€4 0484 0414 0434 043C 0454 044C 0 
0000 0 


; Routine Size: 


ewnuw 


Ot a 
Ok dd td dt 
ONS 
SOOONOUSWN OO 


END; 


52 


D6 


49 bytes ° 


N 14 
16-Sep-1984 01:16:29 VAX-11 Bliss-32 V4.0-742 P 
10-388-1 $82 93:18:82 DI SKSVMSMASTER: DEBUG. SRCIDBGEXC..832;1> é 


THEN EXITLOOP; 


44 
ann 
er 
<< 

zn 
“n>Y 

an 
zz 
Soo 
[| 
mn 
oo 
(od 

“oO 


IF (.exception FS 
(.exception CS 
THEN RETURN (TRUE) 
END; 
! Entry not found in the exception List. 
(FALSE); 


RETURN 


OF FF 


FFF8 


‘ 


eo 
ror 
owe 
oo 
so 


0004 00000 

50 Be 00002 

51 00000000°EF 40 ¢ 00004 
20 13 0000C 

8F 06 AC B83 QOO0E 
10 12 00014 

51 04 AC AD 00016 
8F 52 B3 eet 
04 12 00020 

50 01 00 pense 
04 00025 

50 7FFFFFFF 6 8F F3 00026 
50 04 0002E 

04 00030 


Routine Base: DBGSCODE + 068C 


EXCEPTION_LIST= 


1$: 


vlad 
PM 


»PSECT 


32 P.AAL: .WORD 
46 


4.0-7 


) AND 
List_entry [STS$V_MSG_NOJ) 


DBGSPLIT,NOWRT, SHR, PIC,0 


1577, 1100, 1108, 1084, 1076, 1044, - 


12 
1264, 1220, 1212, 1124, 1068, 0 
P.AAI 


DBGSCODE,NOWRT, SHR, PIC,0 
DBGSEXCEPTION_IS_FAULT, Save R2 
XCEPTION_LISTCIJ, LIST_ENTRY 

XCEPTION+2, #4095 


EXCEPTION, LIST_ENTRY, R2 
R2, #655268 


#1, RO 
#2147483647, I, 1% 
RO 


, 


9) 
ie 


GEXC 1b-5e Sep-1984 01:16:29  VAX=11_BLiss-32_v4.0-742 0 
=060 wSEp-1986 12:16:84 DISKSVMSMASTER-CDEBUG. SRCIOBGExC.832-1°° «5 


: 1985 1 1 } GLOBAL ROUTINE DBGSPUTMSG (SIG_ARG_LIST) : NOVALUE = 

3 19 $ 11 § 1 ! FUNCTION 

; 105 11 1 3 Reports a went by ogo de SYSSPUTMSG with an action routin 

; 1058 1185 1! address of a routine to write the formatted string to DBGS$O TPUT. 

3; 1059 11 § 1! This routine checks the gnceny ten name to see if the —) e t “i is not 
; 1060 11 1! p Sereuere exception. If it is not a hardware exceptio 

3; 1061 1188 1! ted from the signal ergunens List count before calling S¥S$PUTMSG. 
3 1098 1189 1! After SYSSPUTMSG returns the original count is restored. 

3: 106 1190 1! 

3; 1064 113) 1 ! INPUTS ‘ 

: : 5 1136 i } SIG_ARG_LIST - The address of the signal argument List. 

: 106 11946 1 ! OUTPUTS 

; 1068 1195 1! NONE 

3; 1069 1136 2 

; 1070 1197 1 

3 1071 1198 BEGIN 

$ 4 1199 

3; 107 1200 LOCAL 

3 1074 1201 ORIG_ARG_COUNT, 

3; 1075 1 o 1 ! 

3; 1076 120 EXCEP “NAME : BLOCKCZUPVAL BYTE], ! 

> 1077 1204 TABLE-VALUE: BLOCKCZUPVAL BYTES; | 

3; 1078 1205 

3; 1079 1206 MAP 

3; 1080 est SIG_ARG_LIST: REF VECTOR; ! The input signal argument List 

: 1081 1208 

3 oes 1209 BIND 

: 108 1210 HARDWARE _EXCEP = UPLIT eo8S, ACCVIO, SS$_ARTRES, SS$_INTOVF 

> 1084 1211 NTO IV. § SS$_FLTOVF, SS$_FLTDIV, 35$ FLTUND, 
; 1085 isi¢ 333- ECO Sgs- SUBR NG, SSS_ASTFLT, rem 
> 1086 121 SS$~CMO MODSUBR: SS$_CMODUSER, SS$_COMPA 

3; 1087 1214 2 SS$_DEBUG, $§$ OPCCUS, SS$OPCDEC, ess. te 
; 1088 1215 SSS_RADRMOD, SS$_ROPRAND, SS$_SSFAIL, SS$_TBIT 
3; 1089 1216 0): "VECTORC WORDT: 

3; 1090 1217 

; 1091 1218 

: 1098 1219 

3 ad \¢ ? ; Get the original argument count and the exception name. 

3; 1095 13 § ORIG_ARG_COUNT = $16. wT. bt grcea; 

3: 1096 1 EXCEP_NARE = solid Pave 1ST 

3 H+ 944 ! $ cas" -EXCEP_ stss0" Ie Wad NEQ 0) ! Not SYSTEM facility 

3; 1099 1226 SIG_ARG_LISTCO] = .SIG_ARG_LIST(O) - 2 

; 1100 1227 

3; 1101 1228 ELSE 

: 1108 1229 BEGIN 

3; 110 1230 INDEX = 0; 

3 1106 1231 

: 1105 1 ; 

5 1108 1 ! This loop will exit with -1 if the exception name is not found. 

3; 110 1 ! In that case we must subtract 2 from the signal argument List 

: 1 ioe i 5 argument count before talLing SYSSPUTMSG. 

: 1110 1 4 if (WHILE ( HARDWARE _EXCEPC.INDEX] NEQ 0) DO 


Seah ee OR eee fe 


BiB IERMMs QAAGD aM tutneeeste"s 


31111 1 3 BEGIN 

: 1136 ! zB TABLE VALUE = .HARDWARE_EXCEP C.INDEX]; ! pick up next value 
; ie | $3 ee CSTSS$V_MSG_NO] EQL .TABLE_VALUE CSTSS$V_MSG_NOJ) 
3 1118 1 tg EXITLOOP 0; 

3 111 1244 

3; 1118 1245 INDEX = . INDEX + 1; 

3 1119 1 rf END 

; 1120 1267 & ) 

3; 1121 1 rt THEN 

3 11 ¢ 124 SIG_ARG_LIST CO] = .SIG_ARG_LIST (0) - 2; 

3°11 1250 

3 1124 1 2] END; 

: 1182 1 ¢ 

3 11 § 125 SYSSPUTMSG {.51G_ARG LIST, DBGSOUT_MESSAGE, 0); 

; BT 44 : 3 SIG_ARG_LIST COJ~= .ORIG_ARG_COUNT? 


-PSECT DBGSPLIT,NOWRT, SHR, PIC,0 


040C O4AC 04A4 049C 0496 048C 0484 047C 0474 O00C 0004C P.AAJ: .WORD 12, 1140, 1148, 1156, 1164, 1172. 1180, - 
0454 044C 0644 043C 0434 046C 042C 0424 041C 0414 00060 118 , 1196, 1086, 1044, 1052, 1060, 1068, 
0000 0464 045C 00074 1132. 076, 1084, 1092; 1100; 1108, 1116. 


HARDWARE _EXCEP= P.AAJ 


-PSECT DBGSCODE,NOWRT, SHR, PIC,0 


003¢ 00000 .ENTRY DBGSPUTMSG, Save R2.R3,R4,R5 
52 04 ac 00 00002 MOVL s1¢ ARG_LIST, R2 
5 62 dO 00006 MOVL (R2J, ORIG ARG COUNT 
53 04 A2 00 00009 MOVL 4(R25 gXCEP NAME 
00 53 0c 1 FD 9% CMP27V #16, #12, EXCEP_NAME, #0 
le 1 BNE 
5 ps 14 CLAL —sXINDEX 
51 00000000" EF 49 i 16 1$ MOV ZL HARDWARE _EXCEPLINDEX), R1 
54 1 D MOVL 1, TABLE_VALUE 
34 3 A XORWS EXCEP NAME . TABLE_VALUE, R1 
FFF8 BF 1 é BITw Ri, #8552 
7 C BEQL $ 
0 06 INCL INDEX 
. 3 BRB ; 
62 2 C2 $: SUBL2 #2, (R2) 
pA $: CLRL 0 = §P) 
000000006 F PUSHAB DBGSOUT_MESSAGE 
000000006 pe F ates ; SYSSPUTMSG 
$3 3 3 O06 MOVL ORIG_ARG_COUNT, (R2) 


; Routine Size: 74 bytes, Routine Base: DBGSCODE + 0680 


4 Page 3} 
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fw 
-—-o 


mr 


a ee ee ee 
mr 
mr 
fw 


Se 


rereroer 


Vw 
won 


~~ 
nmr 
ww 
ws 


; 1129 


Name 
DBGS$GLOBAL 
DBGSOWN 
DBGSPLIT 
DBGSCODE 


1256 0 END ELUDOM 


PSECT SUMMARY 
Bytes 
4 NOVEC, WRT, 
NOVEC, WRT. 
1 NOVEC ,NOWRT, RD ° 
17 NOVEC, *NOWRT, RD, 


Library Statistics 


01 
16-Sep-1984 
14- $0019 4 


2:18:82 bts 


«EXTRN LIBSSIGNAL 


Attributes 


4 »NOEXE, ee 
»NOEXE ,NOSHR 
EX SHR, 


EXE, SHR, 


o------- Symbols -------- 


COMMAND QUALIFIERS 


Total Loaded Percent 
:(SYSLIBILIB.L32;1 18619 0 
: (DEBUG. OBJ STRUCDEF 432; 1 3 3 9 
: (DEBUG. OBJ L3 154 4 
: (DEBUG. OBJ DETREERDS. (32:1 Se : 
DEBUG..0BJ ]DBGMSG.L 32: 1 386 3 0 
DEBUG. OBJ JDBGGEN.L 32:1 150 9 é 


K-11 
KSVM 


Bliss 


SMAST 


LCL, REL, CON, PIC,A 
LCL, REL, CON, PIC,A 
LCL, REL, CON, PIC,A 
LCL, REL, CON, PIC,A 
Pages Processing 
Mapped Time 

1000 00:01.8 
7 00:00.1 

97 00:01.9 

BH H8:88:3 

‘5 $000: 


=32 v4.0- 
STek-cheaug. sac I0BGExC .832"4 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:DBGEXC/OBJ=0BJ$:DBGEXC MSRC$:DBGEXC/UPDATE=(ENH$: DBGEXC) 


; Size: 


Run Time 
Elapsed Time: 


1799 ¢ 
1 


90° $e"9 


e + 154 data bytes 


4 


Lines/CPU Min: re 6 

Lexemes/CPU-Min: 165 
Used: 384 pages 

Compilation Complete 


Pege PS 
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